﻿#!/usr/bin/perl
#
if( $#ARGV < 0 or $#ARGV > 1 ) {
    die "należy podać dokładnie jeden argument: nazwę pliku";
}

$file=$ARGV[0];
open OUTFILE, ">$file" or
    die "Nie można otworzyć pliku $file do zapisu";

# Liczba kilobajtów podana w zmiennej $KILOBYTES będzie pomnożona przez 1024. Stąd dla zmiennej o wartości 1024
# otrzymujemy 1024 * 1024 bajtów danych (1 megabajt).
$KILOBYTES=1024;

for( $i = 0; $i<1024; $i++ ) {
    # Losowy znak pomiędzy „spacją" i znakiem o kodzie 0x1F — granicy
    # drukowalnych znaków w kodzie ASCII.
    my $char = int(rand(95));
    $char = chr($char+32);

    # Wyprowadzenie 1023 znaków i znaku przejścia do nowego wiersza.
    print OUTFILE $char x 1023 . "\n";
}

close OUTFILE;
